COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	REQUIRE "PIXSAI.REL[VIS,HPM]" LIBRARY
C00011 ENDMK
C⊗;
REQUIRE "PIXSAI.REL[VIS,HPM]" LIBRARY;
REQUIRE "PIXFAI.REL[VIS,HPM]" LIBRARY;
REQUIRE "EDGE.REL[VIS,HPM]" LIBRARY;

external procedure pixtrn(reference integer src; real array transform;
                                reference integer dest);
EXTERNAL PROCEDURE MAKTAB(REFERENCE INTEGER PICTURE);
EXTERNAL INTEGER PROCEDURE PIXEL(REFERENCE INTEGER PIX; INTEGER I,J);
EXTERNAL PROCEDURE PUTEL(REFERENCE INTEGER PIX; INTEGER I,J,VALUE);
EXTERNAL PROCEDURE ADDEL(REFERENCE INTEGER PIX; INTEGER I,J,VALUE);
external INTEGER PROCEDURE PFLDIM(STRING FILNAM);
external INTEGER PROCEDURE GETPFD(STRING FILNAM; REFERENCE INTEGER PICTURE);
external INTEGER PROCEDURE GETPFL(STRING FILNAM; REFERENCE INTEGER PICTURE);
EXTERNAL INTEGER PROCEDURE GETPFP(STRING FILNAM; REFERENCE INTEGER PICTURE;
                                  INTEGER Y1,X1,COMY(1),COMX(1));
external INTEGER PROCEDURE PIXDIM(INTEGER HEIGHT,WIDTH,BITS);
external INTEGER PROCEDURE MAKPIX(INTEGER HEIGHT,WIDTH,BITS;
				  REFERENCE INTEGER PICTURE);
external INTEGER PROCEDURE PUTPFL(REFERENCE INTEGER PICTURE; STRING FILNAM);
external INTEGER PROCEDURE CAMPIX(INTEGER CAMRA,YEDGE,XEDGE;
				  REFERENCE INTEGER PIC;
				  INTEGER SUMS(1),BCLIP(7),TCLIP(0),NTRY(20));
EXTERNAL INTEGER PROCEDURE CLPADJ(INTEGER CAMRA; 
                           REFERENCE INTEGER BCLIP,TCLIP);
EXTERNAL PROCEDURE TVBTMX(REFERENCE INTEGER PIC4,PICN,XFRM; INTEGER INHIBEQ(15));
EXTERNAL PROCEDURE TVBTMY(REFERENCE INTEGER PIC4,PICN,XFRM; INTEGER INHIBLE(15));
EXTERNAL PROCEDURE TVBTMZ(REFERENCE INTEGER PIC4,PICN,XFRM; INTEGER INHIBGE(15));
EXTERNAL PROCEDURE PICADD(REFERENCE INTEGER PICTURE,PICSUM);
EXTERNAL PROCEDURE PICSH(REFERENCE INTEGER PIC1,PIC2; INTEGER DIV);
EXTERNAL INTEGER PROCEDURE TVSNAP(INTEGER CAM,YEDG,XEDG;
                          REFERENCE INTEGER PIC;
                          INTEGER BCLIP,TCLIP,NTRY);
EXTERNAL INTEGER PROCEDURE TVRAW(INTEGER CAM,YEDG,XEDG;
                          REFERENCE INTEGER PIC;
                          INTEGER BCLIP,TCLIP,NTRY);
EXTERNAL PROCEDURE WIPE(REFERENCE INTEGER PICTURE; INTEGER VALUE(0));
EXTERNAL PROCEDURE COPPIC(REFERENCE INTEGER PICTURE1,PICTURE2);
EXTERNAL PROCEDURE GRAY(REFERENCE INTEGER PICTURE);
EXTERNAL PROCEDURE UNGRAY(REFERENCE INTEGER PICTURE);
EXTERNAL PROCEDURE SHRINK(REFERENCE INTEGER PICT1,PICT2);
EXTERNAL PROCEDURE ENHANCE(REFERENCE INTEGER PIC);
external PROCEDURE SYNCHRONIZE(REFERENCE INTEGER PIC);
EXTERNAL INTEGER PROCEDURE CENTRO(REFERENCE INTEGER PIC;
                                  REFERENCE REAL Y1,X1,Y2,X2;
                                  INTEGER THRESH);

external procedure edgeinit(reference integer picture; integer size);
external real procedure edge(integer x,y;reference real edgeresult);
comment edgeresult is real orx,ory,ocl,osl,od,ob;

EXTERNAL INTEGER PROCEDURE INTOP(REFERENCE INTEGER PICTURE;
				INTEGER WINSIZ;
				REFERENCE INTEGER RESULTARRY;
				INTEGER YEDGE(0),XEDGE(0));
EXTERNAL PROCEDURE INTLOM(INTEGER HIG,WID; REFERENCE INTEGER ARRY);


EXTERNAL PROCEDURE GETPAR(REFERENCE INTEGER ARRY, PICTR);

EXTERNAL PROCEDURE PERBIT(REFERENCE INTEGER PICTURE, PERMUTATION);
EXTERNAL PROCEDURE HISTOG(REFERENCE INTEGER PICTURE, HISTOGRAM);

EXTERNAL PROCEDURE ROWSUM(REFERENCE INTEGER PICTURE, RWSUM);
EXTERNAL PROCEDURE ROWSUD(REFERENCE INTEGER PICTURE, RWSUM);
EXTERNAL PROCEDURE COLSUM(REFERENCE INTEGER PICTURE, COLSUM);
EXTERNAL LONG REAL PROCEDURE SUMSQR(REFERENCE INTEGER PICTURE);

EXTERNAL REAL PROCEDURE CMPPAR(REFERENCE INTEGER PIC1,PIC2);

EXTERNAL PROCEDURE CLEAN(REFERENCE INTEGER PICTURE);
EXTERNAL PROCEDURE PASSHI(REFERENCE INTEGER PICTURE1;
				INTEGER WINSIZ;
				REFERENCE INTEGER PICTURE2);
EXTERNAL PROCEDURE HAFPIC(REFERENCE INTEGER PICTURE1,PICTURE2; INTEGER MAXBIT);
EXTERNAL INTEGER PROCEDURE MATCH(REFERENCE INTEGER PIC1,SY1,SX1,SY2,SX2;
				REFERENCE INTEGER PIC2,DY1,DX1,DY2,DX2);
EXTERNAL REAL PROCEDURE NORCOR(REFERENCE INTEGER PIC1,SY1,SX1,SY2,SX2;
				REFERENCE INTEGER PIC2,DY1,DX1,DY2,DX2);

EXTERNAL REAL PROCEDURE NOISE(REFERENCE INTEGER PICTURE);
EXTERNAL PROCEDURE UNPACK(REFERENCE INTEGER SOURCEARRAY, PICTURE);
EXTERNAL PROCEDURE SELECT(REFERENCE INTEGER PICT1; INTEGER YEDGE,XEDGE; 
				REFERENCE INTEGER PICT2);

external PROCEDURE INTEREST(REFERENCE INTEGER PICTURE; INTEGER IW;
				REFERENCE INTEGER RESULT);
external INTEGER PROCEDURE diminterest(REFERENCE INTEGER PICTURE; INTEGER IW);


DEFINE PCLN=0;  comment index of word in a picture file containing
			number of scanlines in the picture;
DEFINE PCWD=1;	comment number of words in the picture;
DEFINE PCBY=2;	comment number of valid bytes in the picture;
DEFINE PCBYA=3;	comment no. of bytes including the nulls at the end of lines;
DEFINE LNWD=4;	comment no. of words per scanline;
DEFINE LNBY=5;	comment no. of valid bytes per scanline;
DEFINE LNBYA=6;	comment no. of bytes per scanline, including the nulls;
DEFINE WDBY=7;	comment no. of bytes per word;
DEFINE WDBI=8;	comment no. of bits containing data in a word;
DEFINE BYBI=9;	comment no. of bits per byte;
DEFINE BMAX=10;	comment maximum value of a byte;
DEFINE BPTAB=11; comment address of second entry in byte pntr. table;
DEFINE LINTAB=12; comment actual address of the first entry in the row table;